home *** CD-ROM | disk | FTP | other *** search
/ Commodore 64 Scene Diskmags Assortment / Public_2_1991_Stony_Soft_de_Side_A.d64 / d..beethoven- . (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  19KB  |  642 lines
  1. 10 rem
  2. 11 rem
  3. 12 rem        o  e  l
  4. 13 rem
  5. 14 rem
  6. 15 rem
  7. 16 rem
  8. 20 gosub1460:print"[147][158]":poke53280,0:poke53281,2:gosub1900
  9. 30 forb=1to3
  10. 40 print"             [146]             [146]    [146]"
  11. 50 nextb:forb=1to7
  12. 60 print"    [146]         [146]    [146]             [146]"
  13. 70 nextb:forb=1to3
  14. 80 print"    [146]         [146]         [146]        [146]"
  15. 90 nextb:forb=1to7
  16. 100 print"    [146]         [146]    [146]             [146]"
  17. 110 nextb:forb=1to3
  18. 120 nextb:forb=1to3
  19. 130 print"             [146]             [146]            [146]"
  20. 140 nextb
  21. 200 v=1:gosub50000:gosub60300
  22. 260 gosub60000
  23. 280 print"   das grosse spiel ums grosse geld.":gosub60000
  24. 300 gosub60100:gosub60000
  25. 320 print" wieviele wollen mitpumpen (2-6 pumper)":gosub60000
  26. 340 getsz:ifsz>1andsz<7then450
  27. 360 print"?"
  28. 380 fort=1to90:nextt
  29. 400 print" "
  30. 420 fort=1to90:nextt
  31. 440 goto340
  32. 450 printtab(9)"[145]einen  moment  bitte"
  33. 460 dimab(13),bd(13),bm(13),bf$(13),bp(13),bt(13),fb(13),f(13),fm(13),pa(13)
  34. 480 dimta(13),rp(37),gf(12),gg(12)
  35. 500 bf$(1)="benzinacker  "
  36. 520 bf$(2)="ever-sprudel "
  37. 540 bf$(3)="tieferschlund"
  38. 560 bf$(4)="dollarspritz "
  39. 580 bf$(5)="heavypump    "
  40. 600 bf$(6)="lineonpipe   "
  41. 620 bf$(7)="happybohr    "
  42. 640 bf$(8)="immerdruck   "
  43. 660 bf$(9)="lucky hole   "
  44. 680 bf$(10)="black gold   "
  45. 700 bf$(11)="overbubble   "
  46. 720 bf$(12)="dauersprit   "
  47. 740 vg$(1)="denvercream"
  48. 760 vg$(2)="ewingoil      "
  49. 780 vg$(3)="sell & hopp   "
  50. 800 vg$(4)="never & again "
  51. 820 vg$(5)="salatoil inc  "
  52. 840 vg$(6)="swimminoil inc"
  53. 860 pf$(1)="bay. pumpe eg  "
  54. 880 pf$(2)="dt.pumpenglueck"
  55. 900 ra$="bohr & pump & sohn"
  56. 920 tg$(1)="raff und gier  "
  57. 940 tg$(2)="knaltex  gmbh  "
  58. 960 tg$(3)="never come back"
  59. 980 tg$(4)="oil on the road"
  60. 1000 fort=1to12
  61. 1020 bp(t)=int(rnd(1)*70000)+30000
  62. 1040 fm(t)=int((bp(t)-(rnd(1)*9999)+1)*10)
  63. 1060 nextt
  64. 1080 fort=1to12:bt(t)=int(rnd(1)*3666)+1:nextt:k=int(rnd(1)*100000)+100000
  65. 1100 l1=int(rnd(1)*6)+1
  66. 1120 fm(l1*2)=1200:fm(l1*2-1)=1400
  67. 1140 fort=1to2
  68. 1160 pf(t)=int(rnd(1)*80000)+20000
  69. 1180 nextt
  70. 1200 fort=1to4
  71. 1220 tp(t)=int(rnd(1)*55000)+25000
  72. 1240 tw(t)=int(tp(t)/10000)*3:nextt
  73. 1260 rp(1)=int(rnd(1)*7)+7
  74. 1280 fort=2to34
  75. 1300 rp(t)=rp(t-1)+(int(rnd(1)*14)-7)
  76. 1320 ifrp(t)<0thenrp(t)=1:goto1300
  77. 1340 ifrp(t)>20thenrp(t)=20
  78. 1360 nextt:fort=1to34
  79. 1380 a1$="  sie muessen leider drauflegen"
  80. 1400 a2$="  ihr vorhaben ist gelungen!"
  81. 1420 a3$="% erwischt           "
  82. 1440 deffnz(x)=int(rnd(1)*x)+1:goto1520
  83. 1460 si=54272:fl=si:fh=si+1:tl=si+2
  84. 1480 th=si+3:w=si+4:a=si+5:h=si+6
  85. 1500 l=si+24:rz=1983:return
  86. 1520 gosub60000:gosub60000
  87. 1540 print"        wir befinden uns im jahr":gosub60000:gosub60300
  88. 1560 printtab(13)"[166] [166][166][166] [166][166][166] [166][166][166]"
  89. 1580 printtab(13)"[166] [166] [166] [166] [166]   [166]"
  90. 1600 printtab(13)"[166] [166][166][166] [166][166][166]  [166][166]"
  91. 1620 printtab(13)"[166]   [166] [166] [166]   [166]"
  92. 1640 printtab(13)"[166] [166][166][166] [166][166][166] [166][166][166]"
  93. 1660 gosub60000:gosub60300:gosub60000
  94. 1680 print"     das spiel endet im jahre 2017":gosub60000:gosub60100
  95. 1700 b$(1)="deep throat inc.   "
  96. 1720 b$(2)="tief und schnell ag"
  97. 1740 b$(3)="turbo & drill gmbh "
  98. 1760 fort=1to3
  99. 1780 bg(t)=int(rnd(1)*50000)+10000
  100. 1800 nextt
  101. 1820 a4$=" welche soll verkauft werden":goto2000
  102. 1900 data8,180,600,13,10,600,10,247,300,9,196,150,10,247,150,8,180,300
  103. 1920 data6,133,300,8,180,300,14,162,300,13,10,300,10,247,150,11,158,150
  104. 1940 data13,10,900,-1,-1,0
  105. 1960 return
  106. 2000 print"[146]     [157][157][157][157][157]"sz"pumper spielen mit  "
  107. 2020 print" nun noch die namen (max 12 buchstaben)"
  108. 2040 fort=1tosz
  109. 2060 input"      ";sn$(t):iflen(sn$(t))>15thenprint" zu lang":goto2060
  110. 2080 ks(t)=k:nextt:gosub60000:v=2
  111. 2100 print"viel spass beim geldmachen und verlieren":gosub50000:gosub60000
  112. 2120 print"jeder spieler hat "k"$ startkapital":gosub60000:gosub60100
  113. 2220 print"[147][158]":poke53280,4:poke53281,14
  114. 2240 print"   ihnen stehen folgende wege offen:":print:k=0
  115. 2260 print" [144]1.  oelfelder erwerben."
  116. 2280 print" 2.  pumpenhersteller werden."
  117. 2300 print" 3.  tankwagenhersteller werden."
  118. 2310 print" 4.  bohrgesellschafter werden."
  119. 2320 print" 5.  sabotage betreiben."
  120. 2340 print" 6.  und natuerlich alles zusammen."
  121. 2360 print" 7.  oder gar nichts von allem."
  122. 2400 print" [158]    sieger ist logischer weise der"
  123. 2420 print"     mit dem meisten kapital am ende"
  124. 2440 print"     des spiels."
  125. 2460 print"";:gosub60200
  126. 2500 print"[147][158]";:poke53280,1:poke53281,2
  127. 2520 print"   die raffinerieoelpreisentwicklung    ";
  128. 2530 print"   trend der naechsten jahre (runden)   ";:gosub60300
  129. 2560 fort=1to34:pokel,15:forb=1torp(t)
  130. 2580 pokea,21:poke56218+t-(b*40),4
  131. 2600 pokeh,255:poke1946+t-(b*40),224
  132. 2620 poketh,8:poketl,0:pokefh,41-t
  133. 2640 pokefl,101-t:pokew,17
  134. 2660 nextb,t:pokew,0
  135. 2680 print;:gosub60200:fort=1to34:rp(t)=rp(t)/10:nextt
  136. 3000 r=r+1:fors=1tosz
  137. 3100 print"[147]":poke53280,4:poke53281,4
  138. 3120 print"entscheidungsmoeglichkeit fuer":gosub52000
  139. 3140 print"[159][146]spieler "sn$(s)" $="ks(s):print"    einkauf von [146]"
  140. 3160 print"[144]   a = bohrgesellschaft"
  141. 3180 print"   b = pumpengesellschaft"
  142. 3200 print"[144]   c = tankwagenfirma"
  143. 3220 print"   d = oelfeld"
  144. 3240 print"[144]   e = bohrgestaenge"
  145. 3260 print"   f = pumpe"
  146. 3280 print"[144]   g = tankwagen":print"     sonstiges  [146]"
  147. 3300 print"   h = naechster spieler"
  148. 3320 print"[144]   i = sabotage betreiben"
  149. 3340 print"   j = preisfestlegung"
  150. 3360 print"[144]   k = weitermachen"
  151. 3400 gosub60200:z2=asc(s$):z2=z2-64
  152. 3410 ifz2<1orz2>12then3400
  153. 3420 onz2gosub37000,31000,32000,30000,38000,39000,40000,3500,35000,42000,3500
  154. 3440 nexts:goto4000
  155. 3500 return
  156. 4000 fors=1tosz
  157. 4200 fori=1to12:gosub12000:nexti
  158. 4300 ks(s)=int(ks(s)):nexts
  159. 4400 print"[147]":gosub29000
  160. 4500 gosub59000:rz=rz+1:ifrz=2017then6000
  161. 4600 goto3000
  162. 6000 print"[147]":poke53281,0:poke53280,0
  163. 6100 print" das"
  164. 6200 print"    spiel"
  165. 6300 print"         ist"
  166. 6400 print"            vorrueber"
  167. 6500 print"[154] hier das gesamtergebnis:"
  168. 6700 print" spieler      bankkredit     kapital"
  169. 6800 print" [184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184]"
  170. 6900 forz0=1tosz
  171. 7000 print"  "sn$(z0);:printtab(15)bk(z0);:printtab(28)int(ks(z0)-(bk(z0)*1.6))
  172. 7100 nextz0
  173. 7200 print" ich hoffe sie hatten viel freude und"
  174. 7300 print" verbleibe als ihr oely.[144]":v=1:gosub50000:end
  175. 10000 print"[147]":poke53281,8:poke53280,0
  176. 10020 print"[151]    [169][146][144][178][151][223][146]    [213][195][195][195][178][201] [146]  [144]  o e l f e l d  [146]"
  177. 10040 print"[151]     [146][144][221][151] [146]    [171][195][195][195][189][202][201][146]";:printtab(22)bf$(i)
  178. 10060 print"[151]     [146][144][221][151] [146]    [173][144][215][215][195][195][144][215][203][146]  [144][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]"
  179. 10080 printtab(20)"[144] b e s i t z e r [146]"
  180. 10090 ifgg(i)<fm(i)thengf(i)=gf(i)+(8000*(pa(i)))
  181. 10100 printtab(22)sn$(s):gg(i)=gg(i)+(8000*(pa(i)))
  182. 10120 print"    jahr "rz;
  183. 10140 printtab(20)"[144][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]"
  184. 10160 print" "ra$" -":print" raffinerieabnahmepreis = "rp(r)"$"
  185. 10400 print"[144] pumpenanzahl :"pa(i)
  186. 10420 print"[153] versandmenge :"gf(i)
  187. 10440 print"[144] tankwagen    :"ta(i)
  188. 10460 print"[153] lkwkapazitaet:"ta(i)*7000
  189. 10480 print"[144] kapital      :"ks(s)
  190. 10500 ifgg(i)>fm(i)thenprint"   quelle erschoepft!"
  191. 10505 ifgf(i)<=0thenprint"";:gosub60200:return
  192. 10510 ifta(i)=0orpa(i)=0thenprint"";:gosub60200:return
  193. 10520 print:input" wieviel liter sollen weg";m
  194. 10540 ifm>gf(i)orm>ta(i)*7000thenprint" zuviel[145][145][145]":goto10520
  195. 10560 ks(s)=ks(s)+(m*(rp(r))):gf(i)=gf(i)-m
  196. 10580 print" kapital      :"ks(s)" $"
  197. 10600 print"";:gosub60200:return
  198. 12000 iffb(i)<>sthenreturn
  199. 12005 iff(i)=1then10000
  200. 12010 print"[147]":poke53280,0:poke53281,1
  201. 12040 print"    [169]    [223][146][152][162][144][164][164]"
  202. 12060 print"         [146][169][152][162][146][144][163][163]";
  203. 12080 printtab(17)"bohrung auf feld"
  204. 12100 print"     [146][150][161]  [161][153]";
  205. 12120 printtab(17)bf$(i)
  206. 12140 print"     [146]   [190]   "
  207. 12160 print"  [144] [213][203]";
  208. 12180 printtab(12)"[154]besitzer:[144]"sn$(s)
  209. 12200 print"  [144][195][203]"
  210. 12220 print" ihr oelfeldlagerverwalter teilt ihnen"
  211. 12240 print" folgende daten mit:"
  212. 12260 ifbm(i)<=0thenprint" bohrung unmoeglich, da kein gestaenge"
  213. 12280 ifbm(i)<=0thenprint" mehr vorhanden. wir brauchen nachschub!":goto12320
  214. 12300 bm(i)=bm(i)-500:ab(i)=ab(i)+500-fnz(30)
  215. 12320 print" bisherige bohrtiefe    :"ab(i)"m"
  216. 12340 print" bohrgestaenge noch fuer:"bm(i)"m"
  217. 12360 ifab(i)>=bt(i)thenprint" wir sind fuendig.":f(i)=1:v=3:gosub50000
  218. 12460 print"";:gosub60200:return
  219. 28000 print:fordd=1to12:printdd;
  220. 28100 iffb(dd)=sthenprinttab(10)bf$(dd):goto28300
  221. 28200 print
  222. 28300 nextdd
  223. 28400 print:input"fuer welches oelfeld";d
  224. 28500 ifd=0thenreturn
  225. 28600 iffb(d)<>sthen28400
  226. 28700 return
  227. 29000 print"jahr:"rz:print:forz8=1tosz
  228. 29100 printsn$(z8);
  229. 29200 printtab(20)"kapital:"ks(z8)
  230. 29300 nextz8
  231. 29400 print"";
  232. 29500 gosub60200:return
  233. 30000 print"[147]";:poke53280,4:poke53281,14
  234. 30020 print"[158]                                        [146]";
  235. 30040 print"     o e l f e l d a n g e b o t e      [146]";
  236. 30060 print"[158]                                        [146]";
  237. 30080 print"  gesellschaft     oelfeld     preis $"
  238. 30100 fort=1to6:printvg$(t)
  239. 30120 print:nextt
  240. 30140 print""
  241. 30160 fort=1to12:printtab(15)""chr$(64+t);:printtab(17)""bf$(t)
  242. 30180 nextt:print"[144]"
  243. 30200 fort=1to12:iffb(t)>0thenprinttab(31)"[159]verkauft[144]":goto30240
  244. 30220 printtab(32)bp(t)
  245. 30240 nextt
  246. 30260 print"   "sn$(s)""
  247. 30280 print"[144]welches feld soll gekauft werden?  [164]"
  248. 30300 print"liquides kapital:"ks(s)"$"
  249. 30320 gets$:ifs$=""then30320
  250. 30340 b=asc(s$)-64:ifb>90orb<0then30320
  251. 30360 ifb>12thenreturn
  252. 30380 iffb(b)>0then30320
  253. 30400 fb(b)=s:ks(s)=ks(s)-bp(b)
  254. 30420 print"[145][145][145][158]"tab(35)s$""
  255. 30440 printtab(17)"        [157][157][157][157][157][157][157][157]"ks(s)
  256. 30460 fort=1to1500:nextt
  257. 30480 return
  258. 31000 print"[147]";:poke53281,6:poke53280,2
  259. 31020 gosub50000:print"[158]  pumpe                                 ";
  260. 31040 print"    &     pumpenvereinigungsgesellschaft";
  261. 31060 print"[158]  pumpe                                 "
  262. 31080 print" betr.  pumpenfabrikanfrage"
  263. 31100 print" [197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197]"
  264. 31120 ifpp(1)>0andpp(2)>0then31280
  265. 31140 print" wir koennen ihnen folgende angebote"
  266. 31160 print" unterbreiten."
  267. 31180 print" 1 "pf$(1);:ifpp(1)>0thenprinttab(30)"verkauft":goto31220
  268. 31200 printtab(28)pf(1)
  269. 31220 print" 2 "pf$(2);:ifpp(2)>0thenprinttab(30)"verkauft[158]":goto31260
  270. 31240 printtab(28)pf(2)
  271. 31260 goto31360
  272. 31280 print"leider muessen wir ihnen mitteilen, dass";
  273. 31300 print" zur zeit keine pumpenherstellungsfirma"
  274. 31320 print"zum verkauf ansteht."
  275. 31340 gosub60200:return
  276. 31360 print" wenn sie eine fabrik kaufen wollen;"
  277. 31380 print" druecken sie die betreffende zahl. wenn";
  278. 31400 print" sie nicht wollen druecken sie 'x'"
  279. 31420 gets$:ifs$=""then31420
  280. 31440 ifs$="1"andpp(1)=0thenks(s)=ks(s)-pf(1):pp(1)=s:gosub60000:goto31520
  281. 31460 ifs$="2"andpp(2)=0thenks(s)=ks(s)-pf(2):pp(2)=s:gosub60000:goto31620
  282. 31480 print"  schade - das wir nicht ins geschaeft":print"  kommen"
  283. 31500 gosub60100:return
  284. 31520 gosub60000:print""
  285. 31540 print"[153] sie sind nun besitzer der firma:":print"     "pf$(1)"."
  286. 31560 input" legen sie den pumpenpreis fest";p(1)
  287. 31580 ifp(1)>60000thenprint"zu hoch!":goto31560
  288. 31600 goto31700
  289. 31620 gosub60000:print""
  290. 31640 print"[153] sie sind nun besitzer der firma:":print"     "pf$(2)"."
  291. 31660 input"legen sie den pumpenpreis fest";p(2)
  292. 31680 ifp(2)>60000thenprint"zu hoch!":goto31660
  293. 31700 print"  [158]alles klar!":gosub60100:return
  294. 32000 print"[147]";:poke53280,0:poke53281,14:gosub50000
  295. 32020 print"                                        [146]";
  296. 32040 print"     t a n k w a g e n f i r m e n      [146]";
  297. 32060 print"                                        [146]";
  298. 32080 print"             v e r k a u f              [146]";
  299. 32100 print"                                        [146]";
  300. 32120 print" nr    f i r m a        lkw   preis     [146]"
  301. 32140 fort=1to4
  302. 32160 print:printt"  "tg$(t):nextt
  303. 32180 print""
  304. 32200 fort=1to4
  305. 32220 iftb(t)>0thenprinttab(30)"verkauft":goto32260
  306. 32240 print:printtab(24)tw(t);:printtab(29)tp(t)
  307. 32260 nextt
  308. 32280 print" kein kauf = 'x'"
  309. 32300 gets$:ifs$=""then32300
  310. 32320 b=val(s$):iftb(b)>0thenreturn
  311. 32340 ifb>4orb=0thenreturn
  312. 32360 ks(s)=ks(s)-tp(b):tb(b)=s
  313. 32380 print"  ihr kapital betraegt jetzt"ks(s)""
  314. 32400 input" ihr tankwagenpreis";lp(b)
  315. 32420 iflp(b)>60000thenprint"[147] unrealistisch!":goto32400
  316. 32440 return
  317. 33000 print"[147]":poke53280,0:poke53281,0
  318. 33020 print"     hier faellt die entscheidung !"
  319. 33040 w3=int(rnd(1)*10)+1
  320. 33060 printtab(15)" + 50 %   [146]"
  321. 33080 printtab(15)" - 20 %   [146]"
  322. 33100 printtab(15)" + 40 %   [146]"
  323. 33120 printtab(15)" - 10 %   [146]"
  324. 33140 printtab(15)" + 30 %   [146]"
  325. 33160 printtab(15)" - 30 %   [146]"
  326. 33180 printtab(15)" + 10 %   [146]"
  327. 33200 printtab(15)" - 40 %   [146]"
  328. 33220 printtab(15)" + 20 %   [146]"
  329. 33240 printtab(15)" - 50 %   [146]"
  330. 33260 print"  druecken sie im richtigen moment 'f1'":e=0
  331. 33280 fort=1207to1567step40
  332. 33300 poket,31:forb=1to3:nextb
  333. 33320 e=e+1:gets$
  334. 33340 ifs$=chr$(133)then33380
  335. 33360 poket,224:nextt:e=0:goto33280
  336. 33380 print"  sie haben die ";
  337. 33400 onegoto33420,33440,33460,33480,33500,33520,33540,33560,33580,33600
  338. 33420 print"+50"a3$a1$:e=50:goto33620
  339. 33440 print"-20"a3$a2$:e=-20:goto33620
  340. 33460 print"+40"a3$a1$:e=40:goto33620
  341. 33480 print"-10"a3$a2$:e=-10:goto33620
  342. 33500 print"+30"a3$a1$:e=30:goto33620
  343. 33520 print"-30"a3$a2$:e=-30:goto33620
  344. 33540 print"+10"a3$a1$:e=10:goto33620
  345. 33560 print"-40"a3$a2$:e=-40:goto33620
  346. 33580 print"+20"a3$a1$:e=20:goto33620
  347. 33600 print"-50"a3$a2$:e=-50
  348. 33620 print"";:gosub60200:return
  349. 35000 print"[147]":poke53281,11:poke53280,0
  350. 35020 fort=1to23
  351. 35040 gosub51000
  352. 35060 print""spc(t)"sabotageaktion"
  353. 35080 nextt
  354. 35100 gosub60000:gosub60000
  355. 35120 print"[147]":printtab(12)sn$(s)
  356. 35140 print"  folgende sabotagemoeglichkeiten"
  357. 35160 print"  stehen zur verfuegung:"
  358. 35180 print"[154]  agenten anwerben und fremdes oel-"
  359. 35200 print"  feld durch ihn unbrauchbar machen"
  360. 35220 print"  lassen.  = f1"
  361. 35240 print"[158]  pumpenfirma durch sabotage ausser"
  362. 35260 print"  betrieb setzen.  = f3"
  363. 35280 print"[154]  tankwagenfirma durch bestechhung"
  364. 35300 print"  der kreditgeber konkurs gehen "
  365. 35320 print"  lassen.  = f5":w4=fnz(40000)
  366. 35325 print"[158]  bohrfirma durch oelueberschwemmung"
  367. 35330 print"  ausser kraft setzen.  = f7"
  368. 35340 print"[154]  lieber doch nichts machen. = 'x'":w3=int(rnd(1)*40000)+40000
  369. 35360 gosub60200
  370. 35380 ifs$=chr$(136)then45000
  371. 35400 ifs$=chr$(133)then35480
  372. 35420 ifs$=chr$(134)then43000
  373. 35440 ifs$=chr$(135)then44000
  374. 35460 return
  375. 35480 gosub60000:gosub60000
  376. 35500 print"[147][150] hey, hier ist agent diabolo huggi baer"
  377. 35520 print" welches oelfeld soll ich sabotieren?[152]"
  378. 35540 fort=1to12:print" "t,bf$(t):nextt
  379. 35560 print:input"  oelfeldnummer";n
  380. 35580 ifn<1orn>12thenreturn
  381. 35600 print"[150] so. fuer die sabotage des oelfeldes"
  382. 35620 print" fallen folgende unkosten an:"
  383. 35680 print" spesen, schmiergelder etc = "w3
  384. 35700 print" korken, sprengstoff etc   = "w4
  385. 35720 print" gesamt                    = "w3+w4
  386. 35740 print" [144]die chancen einer erfolgreichen"
  387. 35760 print" durchfuehrung liegen bei 33% .";:gosub60100:gosub60000
  388. 35780 print""
  389. 35800 print" soll ich zur tat schreiten?"
  390. 35820 gets$:ifs$=""then35820:ifs$="n"thenreturn
  391. 35830 ifs$="n"thenreturn
  392. 35840 ifs$="j"then35880
  393. 35860 goto35820
  394. 35880 ks(s)=ks(s)-w3-w4:w3=0:w4=0
  395. 35900 w3=fnz(3):t1=0
  396. 35920 ifw3=1thenbp(n)=fnz(50000)+30000:w4=fnz(200000):fm(n)=w4:t1=2:f(n)=0
  397. 35940 ifw3=1thenbt(n)=fnz(4500):fb(n)=0:pa(n)=0:ta(n)=0:ab(n)=0:bm(n)=0:gf(n)=0
  398. 35950 ifw3=1thengg(n)=0
  399. 35960 print" [154] sabotageergebnis durch tastendruck"
  400. 35980 gets$:ifs$=""then35980
  401. 36000 fork=1to30:pokel,15
  402. 36020 pokea,190:poketh,8:pokefh,k
  403. 36040 printtab(13)"[158]  gelungen [145]"
  404. 36060 pokefl,k:pokew,33:fort=1to100:nextt
  405. 36080 printtab(13)"[154] misslungen[145]":fort1=1to100:nextt1:pokew,0:nextk
  406. 36100 ifw3=1thenprinttab(13)"  gelungen "
  407. 36120 ifw3<>1thenprinttab(13)"[144]pech  gehabt"
  408. 36140 pokew,0
  409. 36160 ifw3<>1thengosub60300:return
  410. 36180 fort=16to0step-1
  411. 36200 pokel,t:pokea,15:pokeh,0
  412. 36220 pokefh,40:pokefl,200:pokew,129
  413. 36240 forts=1to100:nextts
  414. 36260 nextt
  415. 36300 pokel,15:pokea,190:pokeh,64
  416. 36320 pokefh,1:pokefl,95
  417. 36340 pokew,129
  418. 36360 fortt=1to1000:nexttt
  419. 36380 pokew,0:return
  420. 37000 print"[147]":poke53280,6:poke53281,6
  421. 37020 gosub50000
  422. 37040 print"                                        ";
  423. 37060 print"     bohrgesellschaftskaufangebote      ";
  424. 37080 print"                                        "
  425. 37100 fort=1to3:ifbb(t)=0then37140
  426. 37120 nextt:print"keine mehr da":gosub60100:return
  427. 37140 t=0:fort=1to3
  428. 37160 ifbb(t)>0then37200
  429. 37180 print""t;" "b$(t),bg(t)"  $"
  430. 37200 nextt
  431. 37220 print" welche gesellschaft wollen sie kaufen?"
  432. 37240 gosub60200
  433. 37260 z1=val(s$):ifz1=0orbb(z1)>0thenreturn
  434. 37280 print"sie sind nun inhaber der gesellschaft":printb$(z1)". legen sie nun"
  435. 37300 print"ihren bohrgestaengepreis fuer 500 m fest"
  436. 37320 inputbd(z1)
  437. 37340 ks(s)=ks(s)-bg(z1):bb(z1)=s:return
  438. 38000 print"[147]":poke53281,8:poke53280,8
  439. 38020 print"folgende bohrgestaenge werden angeboten:"
  440. 38040 print"firma";spc(15)"preis fuer 500 meter"spc(20)"bohrgestaenge"
  441. 38060 forz=1to40:print"[196]";:nextz:z=0
  442. 38080 forz=1to3:printz"  "b$(z);
  443. 38100 ifbb(z)>0thenprinttab(26)bd(z)"$":goto38140
  444. 38120 printtab(26)"[144]kein angebot"
  445. 38140 nextz
  446. 38160 ifbb(1)=0andbb(2)=0andbb(3)=0thenprint"es gibt noch keine firma die"
  447. 38180 ifbb(1)=0andbb(2)=0andbb(3)=0thenprint"die gestaenge verkauft!"
  448. 38200 ifbb(1)=0andbb(2)=0andbb(3)=0thengosub60100:gosub60300:return
  449. 38220 print""
  450. 38240 input"einkauf bei welcher firma";cc:ifcc=0thenreturn
  451. 38260 ifbd(cc)=0thenprint"[144] liegt noch kein angebot vor":goto38240
  452. 38280 input"wieviel 500m einheiten wollen sie";c:ifc=0thenreturn
  453. 38300 gosub28000
  454. 38320 ifd=0thenreturn
  455. 38340 ks(s)=ks(s)-(c*(bd(cc)))
  456. 38350 fork=1tosz:ifbb(cc)=sthenks(s)=ks(s)+(.2*(c*(bd(cc)))):goto38380
  457. 38360 ifbb(cc)=kthenks(k)=ks(k)+(c*(bd(cc)))
  458. 38380 nextk:bm(d)=bm(d)+c*500:gosub29000
  459. 38400 d=0:dd=0:c=0:cc=0:k=0:return
  460. 39000 print"[147]";:poke53281,12:poke53280,12
  461. 39020 print"  **    pumpenverkaeuferangebote    **  [146]"
  462. 39040 print" gesellschaft    pumpenpreis in $"
  463. 39060 forb=0to39:print"[184]";:nextb:print
  464. 39080 forz=1to2:printz;pf$(z);
  465. 39100 ifpp(z)=0thenprint" [144]kein angebot":goto39140
  466. 39120 printp(z)
  467. 39140 nextz:print""
  468. 39160 input"kauf bei welcher firma ";cc
  469. 39180 ifcc=0thenreturn
  470. 39200 ifpp(cc)=0thenprint"kein angebot da":goto39160
  471. 39220 input"[144]kauf von wieviel pumpen";c
  472. 39240 ifc=0thenreturn
  473. 39260 gosub28000:ifd=0thenreturn
  474. 39280 ks(s)=ks(s)-(c*p(cc))
  475. 39290 fork=1tosz:ifpp(cc)=sthenks(s)=ks(s)+(.2*(c*p(cc))):goto39320
  476. 39300 ifpp(cc)=kthenks(k)=ks(k)+(c*p(cc))
  477. 39320 nextk:pa(d)=pa(d)+c:gosub29000
  478. 39340 d=0:dd=0:c=0:cc=0:k=0:return
  479. 40000 print"[147][158]";:poke53281,10:poke53280,10
  480. 40020 print"  **   tankwagenverkaufsangebote    **  [146]"
  481. 40040 print" nr firma      anzahl  preis"
  482. 40060 forb=0to39:print"[184]";:nextb:print
  483. 40080 forz=1to4:printz;tg$(z);tw(z);
  484. 40100 iftb(z)=0thenprint" [144]kein angebot":goto40140
  485. 40120 printlp(z)
  486. 40140 nextz:print""
  487. 40160 input"lkwkauf bei welcher firma";cc
  488. 40180 ifcc=0thenreturn
  489. 40200 iftb(cc)=0ortw(cc)<=0thenprint" geht nicht!":goto40160
  490. 40220 input"[144]kauf von wieviel lkw     ";c
  491. 40240 ifc=0orc>tw(cc)thenreturn
  492. 40260 gosub28000:ifd=0thenreturn
  493. 40280 ks(s)=ks(s)-(c*lp(cc)):tw(cc)=tw(cc)-c
  494. 40290 fork=1tosz:iftb(cc)=sthenks(s)=ks(s)+(.2*(c*lp(cc))):goto40320
  495. 40300 iftb(cc)=kthenks(k)=ks(k)+(c*lp(cc))
  496. 40320 nextk:ta(d)=ta(d)+c:gosub29000
  497. 40340 d=0:dd=0:c=0:cc=0:k=0:return
  498. 42000 print"[147]":poke53280,2:poke53281,2
  499. 42100 print" fuer welches produkt wollen sie den "
  500. 42120 print" preis neu festlegen?"
  501. 42140 print" 1   =   pumpenpreis"
  502. 42160 print" 2   =   tankwagenpreis"
  503. 42180 print" 3   =   bohrgestaengepreis"
  504. 42200 input" nr";e1:ife1<=0ore1>3then42200
  505. 42220 print"[147]":one1goto42300,42500,42700
  506. 42300 print"nr  firma          pumpenpreis"
  507. 42320 forz=1to2:printz;pf$(z);p(z):nextz
  508. 42340 print:input" welche firma";e1
  509. 42360 ife1<=0ore1>2thenprint" keine festlegung":gosub60300:return
  510. 42380 ifpp(e1)<>sthenprint" gehoert ihnen nicht!":goto42340
  511. 42400 print"":gosub58000
  512. 42420 p(e1)=e2:gosub29000:e1=0:e2=0:return
  513. 42500 print"nr  firma       tankwagenpreis"
  514. 42520 forz=1to4:printz;tg$(z);lp(z):nextz
  515. 42540 print:input" welche firma";e1
  516. 42560 ife1<=0ore1>4thenprint" keine festlegung":gosub60300:return
  517. 42580 iftb(e1)<>sthenprint" gehoert ihnen nicht!":goto42540
  518. 42600 print"":gosub58000
  519. 42620 lp(e1)=e2:gosub29000:e1=0:e2=0:return
  520. 42700 print"nr  firma       gestaengepreis"
  521. 42720 forz=1to3:printz;b$(z);bd(z):nextz
  522. 42740 print:input" welche firma";e1
  523. 42760 ife1<=0ore1>3thenprint" keine festlegung":gosub60300:return
  524. 42780 ifbb(e1)<>sthenprint" gehoert ihnen nicht!":goto42740
  525. 42800 print"":gosub58000
  526. 42820 bd(e1)=e2:gosub29000:e1=0:e2=0:return
  527. 43000 print"[147] welche der folgenden pumpenfirmen soll"
  528. 43020 print" sabotiert und uebernommen werden?"
  529. 43040 print"gesellschaft    preis       besitzer    "
  530. 43060 forz=1to2
  531. 43080 printz;pf$(z);pf(z);
  532. 43100 forzz=1tosz:ifpp(z)=zzthenprinttab(25)sn$(zz)
  533. 43120 nextzz,z:print""
  534. 43140 gosub59900
  535. 43160 ifn<=0orn>2orpp(n)=0thenreturn
  536. 43180 gosub33000
  537. 43200 e=e+100:ife<100then43280
  538. 43220 ks(s)=ks(s)-((pf(n)*e)/100)
  539. 43240 goto43340
  540. 43280 ks(s)=ks(s)-((pf(n)*e)/100)
  541. 43320 pp(n)=0:w3=fnz(100000):pf(n)=w3:p(n)=0
  542. 43340 e=0:z=0:zz=0:return
  543. 44000 print"[147][158] welche der folgenden tankwagenfirmen"
  544. 44020 print" soll sabotiert werden?"
  545. 44040 print"[144]  gesellschaft      preis  besitzer     ":print""
  546. 44060 forz=1to4:print""z;tg$(z)" "tp(z):nextz:print""
  547. 44080 forzz=1to4:forz=1tosz:iftb(zz)=zthenprinttab(27)sn$(z):goto44120
  548. 44100 nextz:printtab(27)"[144]frei"
  549. 44120 nextzz:print""
  550. 44140 gosub59900
  551. 44160 ifn<=0orn>4ortb(n)=0thenreturn
  552. 44180 gosub33000
  553. 44200 e=e+100:ife<100then44280
  554. 44220 ks(s)=ks(s)-((tp(n)*e)/100)
  555. 44240 zz=0:z=0:e=0:return
  556. 44280 ks(s)=ks(s)-((tp(n)*e)/100)
  557. 44300 tb(n)=0
  558. 44320 w3=fnz(200000):tp(n)=w3:lp(n)=0:tw(n)=int(w3/10000)
  559. 44340 zz=0:z=0
  560. 44360 print"[147][158]sie besitzen ein vorkaufsrecht auf die"
  561. 44380 print"von ihnen sabotierte tankwagenfirma:"
  562. 44400 print" firma      :"tg$(n)
  563. 44420 print" preis      :"tp(n)"$"
  564. 44460 print" lkwzahl    :"tw(n)
  565. 44480 print" wollen sie kaufen (j/n)?"
  566. 44500 gosub60200:poke53281,2:print"[158]"
  567. 44520 ifs$="j"thentb(n)=s:ks(s)=ks(s)-tp(n)
  568. 44540 ifs$="j"theninput" neuer lkw-preis";lp(n)
  569. 44560 return
  570. 45000 print"[147] welche der folgenden bohrgesellschaft-";
  571. 45020 print" en soll sabotiert werden"
  572. 45040 print"gesellschaft    preis       besitzer    [146]"
  573. 45060 forz=1to3
  574. 45080 printz;b$(z);bg(z);
  575. 45100 forzz=1tosz:ifbb(z)=zzthenprintsn$(zz)
  576. 45120 print:nextzz,z:print""
  577. 45140 gosub59900
  578. 45160 ifn<=0orn>3orbb(n)=0thenreturn
  579. 45180 gosub33000
  580. 45200 e=e+100:ife<100then45280
  581. 45220 ks(s)=ks(s)-((bg(n)*e)/100)
  582. 45260 goto45340
  583. 45280 ks(s)=ks(s)-((bg(n)*e)/100)
  584. 45320 bb(n)=0:bg(n)=fnz(100000):bd(n)=0
  585. 45340 e=0:z=0:zz=0:return
  586. 50000 pokel,15:poketh,13:poketl,15:pokea,3*16+15:pokeh,9
  587. 50100 readgx:readgy:readdt
  588. 50200 ifgx=-1thenrestore:return
  589. 50300 pokefh,gx:pokefl,gy
  590. 50400 pokew,65
  591. 50500 fort=1todt/v:nextt:pokew,0
  592. 50600 goto50100
  593. 51000 pokel,15:pokea,24:pokeh,170
  594. 51100 pokefh,2:pokefl,113:pokew,33
  595. 51200 fortt=1to50:nexttt
  596. 51300 pokew,0:pokea,0:pokeh,0:return
  597. 52000 fort=1to6:forts=4to14step10
  598. 52100 pokel,ts:pokea,15:pokeh,0:pokefh,6
  599. 52200 pokefl,133:pokew,17
  600. 52300 fortt=1to100:nexttt
  601. 52400 nextts,t:pokew,0:pokea,0:return
  602. 58000 input" neuer preis";e2
  603. 58100 return
  604. 59000 forx=1tosz
  605. 59010 ifbk(x)>0thenks(x)=ks(x)-5000:bk(x)=bk(x)-3000:gosub59400
  606. 59020 ifks(x)<0thengosub59100
  607. 59040 nextx:return
  608. 59100 print"[147]";:poke53281,0:poke53280,0
  609. 59120 poke53272,23:print" [196]ie [204]uft ist raus "sn$(x)
  610. 59140 forz9=1to30:pokel,15
  611. 59160 pokea,190:poketh,8:poketl,0
  612. 59180 pokefh,2+z9:pokefl,78+z9
  613. 59200 pokew,129:fortt=1to28:nexttt:nextz9:pokew,0
  614. 59220 print:print" [196]u bekommst von der [194]ankgesellschaft"
  615. 59240 print" [210]affke und [211]ohn einen [194]ankkredit von"
  616. 59260 print" 20000 [196]ollar. [196]u musst jetzt jedes [202]ahr"
  617. 59280 print" 5000 [196]ollar abbezahlen."
  618. 59300 print;:gosub60200:print"[147]":poke53272,21
  619. 59320 ks(x)=ks(x)+20000:bk(x)=bk(x)+20000:return
  620. 59400 print"[147][154] raffke und sohn bankkreditabteilung    [146]":poke53281,0
  621. 59420 print" teilt "sn$(x)" mit:"
  622. 59440 print" noch zahlbar   :"bk(x)"$"
  623. 59460 print" jetzt zahlbar  : 5 0 0 0.-- $"
  624. 59480 print" ihr kapital    :"ks(x)"$"
  625. 59500 print"";:gosub60200:return
  626. 59900 input"   welche firma (nr)";n
  627. 59950 return
  628. 60000 forb=1to6:print"":nextb
  629. 60050 return
  630. 60100 fortt=1to2000:nexttt:return
  631. 60200 gets$
  632. 60220 printtab(6)"bitte druecken sie eine taste[145]":forox=1to100:nextox
  633. 60260 printtab(6)"[144]bitte druecken sie eine taste[145]":forox=1to100:nextox
  634. 60280 ifs$=""then60200
  635. 60290 return
  636. 60300 fortt=1to2000:nexttt:return
  637. 60400 rem
  638. 60500 rem ein www-c-r-c-spiel 1983
  639. 60600 rem
  640. 60700 rem
  641. 60800 vd=389072:return
  642.